home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8608a.d64
/
listing 1.(1520)
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
301b
|
13 lines
5 REM -------- TRANS 0 (1520-PLOTTER) -
10 DATA 0,0,15,0,15,9,7,5,13,0,9
20 DIM X(6),Y(6)
30 FOR I=1 TO 5 : READ X(I),Y(I) : NEXT
40 X(6)=X(1) : Y(6)=Y(1)
50 OPEN 1,6,1 : OPEN 2,6,2 : PRINT#2,0 : CLOSE 2
60 PRINT#1,"M",0,-200 : PRINT#1,"I"
70 FOR I=1 TO 5
80 PRINT#1,"R",X(I),Y(I) : PRINT#1,"J",X(I+1),Y(I+1)
90 NEXT
100 PRINT#1,"R",0,-200
110 CLOSE 1